# simulate a dataset with continuous data
dataset <- matrix(runif(1000 * 20, 1, 100), nrow = 1000 )
a <- mmhc.skel(dataset, max_k = 3, threshold = 0.05, test = "testIndFisher",
rob = FALSE, nc = 1)
plotnetwork(a$G)
plotnetwork(a$G, titlos = "DAG skeleton")
Run the code above in your browser using DataLab